home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / sauter.zip / MAKET_MF.BTM < prev    next >
Text File  |  1990-11-19  |  1KB  |  61 lines
  1. @echo off
  2. : 4Dos Batch file--
  3. : Make mf source files.
  4.  
  5. : Don't adjust "standard" sizes (11.14.17.20.25.30) to nearest power of 1.2
  6.  
  7. set OUTDIR=`c:\l\mf\sauter\mf`
  8. set SAUTER=`c:\l\mf\sauter`
  9.  
  10. iff %# LT 2 then
  11.    echo "Usage: $0 family_name size [size ...]."
  12.    exit
  13. endiff
  14.  
  15. : Remember the family name (e.g., ``cmr'').
  16. set family = %1
  17. shift
  18.  
  19. iff not isdir %OUTDIR then
  20.    iff exist %OUTDIR then
  21.       echo File "%OUTDIR" exists and is not a directory.
  22.       echo You must move this file or change the output directory.
  23.       quit
  24.    else
  25.       md %OUTDIR
  26.    endiff
  27. endiff
  28.  
  29.  
  30.  
  31. :do_sizes
  32.  
  33. if "%1" EQ "" goto done
  34.  
  35. set size = %1
  36.  
  37.    set name_size = %@eval[%size]
  38.    set mf_name = %family%%name_size%.mf
  39.    echo %family%%name_size >> %SAUTER\l-new
  40.  
  41. : Make sure it doesn't exist already.    
  42.  
  43.    iff exist %OUTDIR\%mf_name then
  44.       echo "%mf_name" exists already, so I won't change it.
  45.    else
  46.       echo `% `%size-point %family. > %OUTDIR\%mf_name
  47.       echo `design_size := `%size; >> %OUTDIR\%mf_name
  48.       echo `input b-`%family%`;` >> %OUTDIR\%mf_name
  49.    endiff
  50.  
  51.  
  52. shift   
  53. goto do_sizes
  54.  
  55.  
  56. : Come back to where we were.
  57.  
  58. :done
  59.  
  60. quit
  61.